.ENABLE SUBSTITUTION
.ENABLE LOWERCASE
.;
PIP *.*/PU
.10:
.ASKS P AL compilation.  Program name: 
PIP 'P'.OBJ;*/DE
PS2 'P'.2
;ππ
.GOTO 10